Org 中快速插入 Heading

在 org 文中可以对 Heading 进行链接，通过此链接可以跳转到对应的 heading 上。其在 org 中的术语是 Internal links。

虽然 heading 很好用，但是插入 Heading 却显得有点不是很方便。

下面是我的流程：

使用 Evil ，通过 gh 调用 consult-outline ，移动到指定的 Heading ，然后通过 C-. 调用 embark-act ，在弹出的界面上按 h 插入对应的 Heading 。

其中 h 按键对应的命令是：

(defun consult-outline-insert-heading (target)
  (let* ((marker (plist-get
                  (text-properties-at 0 target)
                  'consult--candidate))
         (headline-name (org-entry-get nil "ITEM")))
    (org-insert-link nil headline-name)))

(with-eval-after-load 'embark
  (define-key embark-general-map (kbd "h") #'consult-outline-insert-heading))